home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / game_cga / questzor / madlibs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-10-16  |  6.9 KB  |  229 lines
  1. 1   REM            MAD-LIB
  2. 2   REM    ADAPTED FOR THE SOURCE BY
  3. 3   REM    ALLEN MARSALIS  APR 1981
  4. 5  IF ADDR.% = 0 THEN GOSUB 60001
  5. 30   PRINT "O.K. WE'RE GOING TO WRITE SOME MAD-LIB"
  6. 31   PRINT "STORIES TOGETHER. YOU SUPPLY THE WORDS,"
  7. 32   PRINT "I SUPPLY THE PLOT."
  8. 33   PRINT 
  9. 34   PRINT 
  10. 60   PRINT "FIRST I NEED 11 ADJECTIVES. ADJECTIVES"
  11. 70   PRINT "MODIFY A NOUN, E.G., RED, DIRTY, LARGE,"
  12. 71   PRINT "ETC. NOW, TYPE EACH ONE AND HIT RETURN."
  13. 72   PRINT 
  14. 73   INPUT A$
  15. 74   INPUT B$
  16. 75   INPUT C$
  17. 76   INPUT D$
  18. 77   INPUT E$
  19. 78   INPUT F$
  20. 79   INPUT G$
  21. 80   INPUT H$
  22. 81   INPUT I$
  23. 82   INPUT J$
  24. 83   INPUT K$
  25. 85   PRINT 
  26. 86   PRINT 
  27. 90   PRINT "NOW I NEED 5 ADVERBS."
  28. 91   PRINT "THEY MODIFY VERBS, AND END IN 'LY'"
  29. 92   PRINT "(SLOWLY,GREEDILY,ETC.)"
  30. 95   PRINT 
  31. 96   INPUT L$
  32. 97   INPUT M$
  33. 98   INPUT N$
  34. 99   INPUT O$
  35. 100   INPUT P$
  36. 120   PRINT 
  37. 121   PRINT 
  38. 122   PRINT "O.K.,NOW 10 NOUNS, E.G.,INSECT, COAT,"
  39. 124   PRINT "CAR, TELEPHONE, ETC."
  40. 125   PRINT 
  41. 127   INPUT Q$
  42. 128   INPUT R$
  43. 129   INPUT S$
  44. 130   INPUT T$
  45. 131   INPUT U$
  46. 132   INPUT V$
  47. 133   INPUT W$
  48. 134   INPUT X$
  49. 135   INPUT Y$
  50. 136   INPUT Z$
  51. 139   PRINT 
  52. 140   PRINT "HOW ABOUT TWO FIRST NAMES OF MEN "
  53. 141   PRINT 
  54. 145   INPUT A1$
  55. 146   INPUT B1$
  56. 148   PRINT 
  57. 150   PRINT "THE FIRST NAME OF A GIRL "
  58. 155   INPUT C1$
  59. 169   PRINT 
  60. 170   PRINT "AND SOMEONE'S LAST NAME "
  61. 175   INPUT D1$
  62. 179   PRINT 
  63. 180   INPUT "A GEOGRAPHICAL LOCATION  ",E1$
  64. 190   INPUT "A LIQUID  ",F1$
  65. 200   PRINT "AND FINALLY, AN EXCLAMATORY WORD OR TWO...."
  66. 201   INPUT " ",G1$
  67. 205   PRINT 
  68. 219   PRINT "VERY GOOD!............................"
  69. 220   PRINT 
  70. 221   PRINT "WOULD YOU LIKE A NEWSPAPER AD(1),"
  71. 222   PRINT "A WESTERN (2), A STORY ABOUT"
  72. 224   PRINT "THE ARMY (3), OR A WATERBED (4)."
  73. 225   INPUT "WHICH ONE, 1,2,3,OR 4 ",H1
  74. 248   IF H1 > 0 AND H1 < 5 THEN 270
  75. 253   PRINT 
  76. 260   INPUT "COME ON NOW -- 1,2,3 OR 4 ",H1
  77. 261   GOTO 248
  78. 270   IF H1 = 1 THEN 299
  79. 271   IF H1 = 2 THEN 400
  80. 272   IF H1 = 3 THEN 500
  81. 273   IF H1 = 4 THEN 600
  82. 299   PRINT 
  83. 300   PRINT "        BARNES DAILY CLASSIFIEDS"
  84. 301   PRINT 
  85. 310   PRINT "FOR SALE:1957 SEDAN. THIS ";A$;" CAR"
  86. 320   PRINT "IS IN A ";B$;" CONDITION. IT WAS"
  87. 321   PRINT "FORMERLY OWNED BY A ";C$;" SCHOOL"
  88. 325   PRINT "TEACHER WHO ALWAYS DROVE IT"
  89. 330   PRINT L$;". THERE IS A ";D$
  90. 335   PRINT Q$;" IN THE BACK SEAT. IT HAS A "
  91. 340   PRINT "CHROME ";R$;" ON THE HOOD,"
  92. 350   PRINT "A ";E$;" PAINT JOB, ";F$;" TIRES"
  93. 355   PRINT "AND THE BACK OPENS INTO A ";G$;" ";S$;"."
  94. 360   PRINT "WILL CONSIDER TAKING A SLIGHTLY"
  95. 365   PRINT "USED ";T$;" IN TRADE."
  96. 379   PRINT 
  97. 381   PRINT "LOST: IN THE VICINITY OF ";E1$;","
  98. 390   PRINT "A ";H$;" FRENCH POODLE WITH"
  99. 391   PRINT I$;" HAIR AND"
  100. 392   PRINT "A ";J$;" TAIL. IT ANSWERS TO"
  101. 394   PRINT "THE NAME OF ";C1$;". WHEN LAST SEEN IT"
  102. 396   PRINT "WAS CARRYING A ";U$;" IN ITS MOUTH."
  103. 398   PRINT "A ";K$;" REWARD IS OFFERED."
  104. 399   GOTO 700
  105. 400   PRINT 
  106. 401   PRINT "       AN ADULT WESTERN"
  107. 402   PRINT 
  108. 410   PRINT "TEX ";D1$;", THE MARSHALL OF ";A1$
  109. 415   PRINT "CITY RODE INTO TOWN. HE SAT ";M$
  110. 420   PRINT "IN THE SADDLE, READY FOR TROUBLE."
  111. 425   PRINT "HE KNEW THAT HIS ";A$;" ENEMY, THE"
  112. 430   PRINT B1$;" KID WAS IN TOWN. THE KID WAS"
  113. 435   PRINT "IN LOVE WITH TEX'S HORSE, ";C1$;"."
  114. 440   PRINT "SUDDENLY THE KID CAME OUT OF THE"
  115. 445   PRINT G$;" NUGGET SALOON."
  116. 460   PRINT "'DRAW TEX', HE YELLED ";N$;"."
  117. 461   PRINT 
  118. 465   PRINT "TEX REACHED FOR HIS ";U$;", BUT"
  119. 470   PRINT "BEFORE HE COULD GET IT OUT OF"
  120. 475   PRINT "HIS ";V$;", THE KID FIRED, HITTING TEX"
  121. 480   PRINT "IN THE ";W$;"."
  122. 486   PRINT "AS TEX FELL HE PULLED OUT HIS OWN"
  123. 487   PRINT X$;", AND SHOT THE KID 6 TIMES IN THE"
  124. 488   PRINT Y$;". THE KID DROPPED IN A POOL OF"
  125. 490   PRINT F1$;". '";G1$;"' TEX SAID, 'I HATED"
  126. 492   PRINT "TO DO IT BUT HE WAS ON THE WRONG"
  127. 494   PRINT "SIDE OF THE ";Z$;".'"
  128. 496   GOTO 700
  129. 500   PRINT 
  130. 501   PRINT "IF YOU PLAN ON JOINING THE ARMY, HERE"
  131. 502   PRINT "ARE SOME ";K$;" HINTS THAT WILL HELP"
  132. 505   PRINT "YOU BECOME A ";J$;" SOLDIER."
  133. 507   PRINT "THE ARMY IS MADE UP OF OFFICERS,"
  134. 508   PRINT "NON-COMS, AND ";Q$;"S."
  135. 530   PRINT "YOU CAN RECOGNIZE AN OFFICER BY THE"
  136. 535   PRINT R$;" ON HIS SHOULDERS AND THE"
  137. 540   PRINT "FUNNY-LOOKING ";S$;"S ON HIS CAP."
  138. 545   PRINT "WHEN YOU ADDRESS AN OFFICER, ALWAYS"
  139. 550   PRINT "SAY '";T$;"' AND SAY IT ";P$;"."
  140. 555   PRINT "IF YOU GET A ";I$;" HAIRCUT, KEEP"
  141. 560   PRINT "YOUR ";U$;"S SHINED, AND SEE THAT"
  142. 565   PRINT "YOUR ";V$;" IS CLEAN AT ALL TIMES,"
  143. 570   PRINT "YOU WILL BE A CREDIT TO THE SLOGAN :"
  144. 572   PRINT "    THE ARMY BUILDS BETTER ";W$;"S!"
  145. 573   PRINT 
  146. 575   PRINT "AT ROLL CALL, WHEN THE ";H$
  147. 577   PRINT "SERGEANT CALLS YOUR NAME, SHOUT"
  148. 578   PRINT "'";G1$;"' LOUD AND CLEAR."
  149. 580   PRINT "FOLLOW THIS ADVICE AND YOU MAY WIN THE:"
  150. 595   PRINT "**** ";G$;" CONDUCT ";Z$;" ****"
  151. 598   GOTO 700
  152. 600   PRINT 
  153. 601   PRINT "   BUST-A-BUTTON AND DUCK DEPT STORE   "
  154. 602   PRINT 
  155. 605   PRINT "DEAR SIRS,"
  156. 606   PRINT 
  157. 620   PRINT "LAST WEEK I PURCHASED A ";B$
  158. 625   PRINT "CONTOUR WATER BED IN YOUR STORE."
  159. 630   PRINT "I GOT IT ESPECIALLY FOR MY ";D$
  160. 635   PRINT "HUSBAND WHO SLEEPS VERY ";L$;" AND"
  161. 640   PRINT "SAYS THAT ";F$;" WATER BEDS THAT"
  162. 645   PRINT "HAVE ";Q$;"S IN THEM MAKE HIS"
  163. 650   PRINT S$;" ACHE. WHEN THE BED ARRIVED"
  164. 655   PRINT "MY HUSBAND TESTED IT ";M$;" AND SAID"
  165. 660   PRINT "THE ";H$;" ";U$;" WAS BENT AND"
  166. 665   PRINT "KEPT PRESSING INTO HIS ";V$;"."
  167. 670   PRINT "HE SAYS THIS COULD LEAD TO A ";J$
  168. 675   PRINT "CONDITION OF THE ";X$;"."
  169. 681   PRINT "I WOULD LIKE TO EXCHANGE THIS ";I$;" BED"
  170. 683   PRINT "FOR ONE THAT WILL ALLOW MY HUSBAND"
  171. 685   PRINT "TO SLEEP ";O$;" AND WON'T MAKE HIS"
  172. 687   PRINT Z$;" SORE."
  173. 689   PRINT "YOURS ";P$;","
  174. 690   PRINT "           ";C1$;" ";D1$
  175. 691   PRINT 
  176. 692   GOTO 700
  177. 700   PRINT 
  178. 701   PRINT 
  179. 705   INPUT "WANT ANOTHER STORY  ",I1$
  180. 710   IF I1$ = "NO" THEN 900
  181. 715   IF I1$ = "YES" THEN 720
  182. 716   INPUT "COME ON 'YES' OR 'NO' ",I1$
  183. 717   GOTO 710
  184. 719   PRINT 
  185. 720   INPUT "WANT TO USE THE SAME WORDS ",J1$
  186. 730   IF J1$ = "YES" THEN 220
  187. 735   IF J1$ = "NO" THEN 60
  188. 740   INPUT "COME ON NOW -- 'YES' OR 'NO'",J1$
  189. 742   GOTO 730
  190. 900   PRINT "O.K. SEE YOU AGAIN SOMETIME !"
  191. 920   REM          MAD LIB
  192. 921   REM   ORIGINAL BY HENRY GALLO
  193. 922   REM   MODIFIED BY DAVID AHL
  194. 923   REM    ADAPTED FOR I.B. MAGAZETTE BY
  195. 925   REM         ALLEN MARSALIS
  196. 926   REM                            
  197. 999   GOTO 65001
  198. 60000  '^         Routine to present credits page
  199. 60001  CLS:COLOR 7,0 :LOCATE 1,1:PRINT CHR$(218);
  200. 60020  FOR K=2 TO 39:PRINT CHR$(196);:NEXT:PRINT CHR$(191);:FOR K=2 TO 22:LOCATE K,40:PRINT CHR$(179);:NEXT:FOR K=2 TO 22:LOCATE K,1:PRINT CHR$(179);:NEXT:LOCATE 23,1:PRINT CHR$(192);:FOR K=2 TO 39:PRINT CHR$(196);:NEXT:PRINT CHR$(217);
  201. 60030  COLOR 0,7
  202. 60040  LOCATE  2,3:PRINT"                                    "
  203. 60050  LOCATE  3,3:PRINT"                                    "
  204. 60060  LOCATE  4,3:PRINT"             MADLIBS                "
  205. 60070  LOCATE  5,3:PRINT"                                    "
  206. 60080  LOCATE  6,3:PRINT"     The player supplies words as   "
  207. 60090  LOCATE  7,3:PRINT"  requested by the program.  Then   "
  208. 60100  LOCATE  8,3:PRINT"  MADLIBS takes the nouns, adverbs, "
  209. 60110  LOCATE  9,3:PRINT"  adjectives, etc., and writes a    "
  210. 60120  LOCATE 10,3:PRINT"  story.  Read it aloud and laugh.  "
  211. 60130  LOCATE 11,3:PRINT"                                    "
  212. 60140  LOCATE 12,3:PRINT"            adapted by              "
  213. 60150  LOCATE 13,3:PRINT"                                    "
  214. 60160  LOCATE 14,3:PRINT"            Allen Marsalis          "
  215. 60170  LOCATE 15,3:PRINT"                                    "
  216. 60180  LOCATE 16,3:PRINT"            Shreveport, LA          "
  217. 60190  LOCATE 17,3:PRINT"                                    "
  218. 60200  LOCATE 18,3:PRINT"  --------------------------------  "
  219. 60210  LOCATE 19,3:PRINT"        I.B.Magazette               "
  220. 60220  LOCATE 20,3:PRINT"        417 Wellington Court        "
  221. 60230  LOCATE 21,3:PRINT"        Shreveport, LA 71115        "
  222. 60240  LOCATE 22,3:PRINT"                                    "  :COLOR 7,0
  223. 60250  LOCATE 24,2,1:PRINT " PRESS ANY KEY TO CONTINUE";:BEEP:ANS$=INPUT$(1):CLS
  224. 60260  RETURN
  225. 65000  ' Return to Magazette
  226. 65001  LOCATE 24,1:PRINT "  Press ESC key to continue           ";:ANS$=INPUT$(1):IF ASC(ANS$)<>27 THEN 65001
  227. 65002  IF ADDR.%<>0 THEN RUN "START"
  228. 65005  END
  229.